Option Strict Off
Option Explicit On
Module ModCallback
	
	Sub TimerProc(ByVal hwnd As Integer, ByVal uMsg As Integer, ByVal idEvent As Integer, ByVal dwTime As Integer)
		On Error Resume Next
		Call frmChange.DefInstance.ChangeDesktop()
	End Sub
End Module